home *** CD-ROM | disk | FTP | other *** search
/ NASA Climatology Interdisciplinary Data Collection / NASA Climatology Interdisciplinary Data Collection - Disc 4.iso / software / grads / lib / functions / mod.gf < prev    next >
Encoding:
Text File  |  1994-02-17  |  121 b   |  9 lines
  1. function mod(i0,inc)
  2.   if(inc!=0)
  3.     imod=int(i0/inc)
  4.   else
  5.     imod=int(i0/1)
  6.   endif
  7.   imod=i0-imod*inc
  8. return(imod)
  9.